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The Best Service 


The Best Software 


ECSTATICA 

ELITE 2 FRONTIER 

FIFA INT. SOCCER 

GABRIEL KNIGHT 

GABRIEL KNIGHT (UNBOXED) 
oo NAVAL BATTLES 2 
HELL 


INDI dc FATE OF ATLANTIS 


PINBALL DREAMS DELUXE 
PGA TOUR GOLF 486 
REBEL ASSAULT 

RETURN TO ZORK 


SPACE HULK 

STAR TREK 25TH ANNIVERSARY 
STRIKE COMMANDER 
SUBWARS 2050 

SYNDICATE + 


EVEN MORE INCREDIBLE MACHINE 
F14 FLEET DEFENDER 

FIFA INT. SOCCER 

INTELLIGENT STRATEGY GAMES (10) 
LINKS 386 PRO 

LINKS COURSES EACH 


- NEW YORKIPARIS DISKS EACH 
MS SPACE SIMULATOR 
OVERLORD 

SAM & MAX HIT THE ROAD 


LANGUAGE 
BERLITZ FR/GER/ITAL/SP 
EZ LANGUAGE CD FR/GERIIT/JAP 


HYPERGLOT LEARN TO SPEAK FR/SP 
LEARN FRENCH WITH ASTERIX 1 CD 
LEARN FRENCH WITH ASTERIX 2 CD 
SYRACUSE 4-9 ENG/FR/GER/SP/JAP 


SYRACUSE 9-ADULT ENG/FR/SPAN 


6.00 
TRANSLATION WITH FR/GER/SP ASSIST £68.00 


Credit Card Hotline O724 274281 (4 Lines) Mon- Fri 9.00-6.30, 
By Post: Cheques/PO to Multimax Ltd, PO Box 28, Scunthorpe, DN16 3UF 


on. Wolfenstein 3D, Spear of Destiny, ud be Ni 


Educational, Casino, Card, diese 


CHILDREN'S EDUCATIONAL 

ADI ENGLISH 11/12/13/14 3.5" £16.00 
ADI ENG/FR/MATHS GCSE 3.5" EACH £21.00 
ADI FRENCH 11/12/13/14 EACH 3.5" 

ADI MATHS 11/12/13/14 EACH 3.5" 
ADVENTURES IN FAIRY LAND CD 

ART CENTRE 

ARTHUR'S BIRTHDAY SURPRISE : 
ARTHUR'S TEACHER TROUBLE (UNBOXED) £14.50 
BUG INSECT ADVENTURE CD/3.5" £28.00 
BUSY TOWN CD 

CREATIVITY CENTRE 3.5” 

FUN SCHOOL 4 UNDER 5s 3.5" 

FUN SCHOOL 4 5-7 3.5" 

FUN SCHOOL 4 7-113.5" 

FUN SCHOOL PAINT & CREATE 3.5" 

FUN SCHOOL SPELLING 7+ 3.5" 
HENRIETTA’S BOOK OF SPELLS 3.5" 

JUST GRANDMA & ME (UNBOXED) 


LITTLE MONSTER AT SCHOOL 

MAGIC THEATRE 3.5" CD 

MAIN STREET TITLES - SEE SPECIAL OFFERS 
MS CREATIVE WRITER 3.5" 

MS FINE ARTIST 3.5" 

NODDY’S BIG ADVENTURE 3.5” 

NODDY'S PLAYTIME 3.5" 

PUTT PUTT GOES TO THE MOON 

PUTT PUTT JOINS THE PARADE 

READING ADVENTURES IN WORD LAND 

RUFFS BONE 

SCOOTER'S MAGIC CASTLE 

THE TALE OF BENJAMIN BUNNY 

THE TALE OF PETER RABBIT 

THE TORTOISE AND THE HARE CD 
TUNELAND 

TWINS IN TROUBLE CD £21.90 
WHERE IN THE WORLD CARMEN S'DIEGO CD £16.50 


MANY OTHER TITLES AVAILABLE - PLEASE CALL 


MULTIMEDIA RANGE 
Excellent “Edutainment” for all ages 


EXCELLENT ‘EDUCATINMENT’ FOR ALL AGES. 
EYEWITNESS ENCYCLOPEDIA SCIENCE 


MY 1ST INC AMAZING D/CT UK VERSION 
THE ULTIMATE HUMAN BODY 
THE WAY THINGS WORK 


MUSIC 
CAKEWALK HOME STUDIO 
JAMMER PRO 
INTRODUCTION TO CLASSICAL MUSIC 


THE ROCK & ROLL YRS: THE 50'S 
VIKING GUIDE TO OPERA £55.00 
WOODSTOCK 25TH ANNIVERSARY 


TOP REFERENCE EDUCATIONAL 
2000 GREATER & LESSER MYSTERIES £16.80 
‘3D BODY ADVENTURE 3.5 CD 

3D DINOSAUR ADVENTURE CD 3.5" 

SFT 6 PACK VOL (6 KIDS CD'S) 

5FT 10 PACK VOL 1 (10CD'S) 

5FT 10 PACK VOL 2 {10 CD'S) 

ABOUT COWS CD 

ANCIENT LANDS CD 

ANIMALS OF SAN DIEGO ZOO CD 


COMPTONS INTERACTIVE 95 CD (UNBOXED) £21.00 
COOKBOOK HEAVEN CD 

DANGEROUS CREATURES CD 

EXPLORING ANCIENT ARCHITECTURE CD 
EXPLORING MODERN ART (TATE GAL) 

FAMILY DOCTOR VER 3 CD 

FOREVER GROWING GARDEN 

GARDENING CD 

GLOBAL EXPLORER CD 

GROLIER V6 ENC CD (UNBOXED) 


MAVIS BEACON V2 + CHESS + ATLASES CD £19.00 
MAYO HEALTH CLINIC CD 


MS SCHUB/MOZ/BEET/STRAV CD EACH 
NAT GEOGRAPHIC MAMMALS 

OCEANS BELOW 

OXFORD COMPENDIUM (DICT/THE S/QUOT) 
OXFORD REF SHELF (16 REF BOOKS!!!) 


WORLD ATLAS 5 CD (UNBOXED) 
VISTA PRO 
YOGA - A MULTIMEDIA GUIDE 


MANY OTHER S AVAILABLE - - PLEASE CALL 


How to calculate your order 


Value of goods shown on page EEE 
VAT @ 17.5% as 


P2P aT 


TOTAL 


LESS £7.50 IF APPLICABLE (SEE BELOW) 


£7.50 Extra Discount 
When you purchase any title with 
Whe Very Gest Games.Nolume 1 


A collection of 450+ of the latest and best Shareware Games on CD 


for just £24.95*fully inclusive 


or less than 5 pence a game “Highly Recommended” Practical PC 1994 
"Game of the Month" PC Format September 1994 


The CD contains over 450 great games in uncom, 
best titles from major companies such as Epic, 


Bal “All the games come r 


rmat, ready to run, hassle free! We have selected only the very 
to run... So you won't need to 


waste time unzipping files pase pal time you want to play a game or move it to your hard disk. 


le, Cosmo's Cosmic Adventure, Blake 


oe Mes ‘Str ve kor, Shooting Ga tg Gallery. Pinball, Bio Me Jill of 
iukem, ls in 10 nace, Jill o' 
Blake Stone, Detender sped Bath, belowecr Harry, Commander 
jack, Mahj Chess, Pirada, Jest Wont ganas. games ... and many more Arcade, Adventure, 
ang aleay games too numerous to mention. We guarantee there is absolutely no 
ve 


ery best games are i 


* The Very Best Games volume 1 oe sheteaere titles. These require separate Payment ot authors if found useful. 


The Best Prices 


‘SHAREWARE CD'S 
DR FONT: S/GAMES/GRAPHIUTILIWIN EACH £12.00 
ENCYCL OF SOUND | & Il EACH 
GIFS GALAXY 
GIFS GALORE 
GIF GALLERY (ALL VOLS) : 
LIBRIS BRITANNIA III 
LIBRIS BRITANNIA 4 SCIENCE & TECH 
LIBRIS BRITANNIA SCIENCE & TECH 
NIGHT OWL 13 
PLATINUM DISKS EACH £10, 
EDUCATION/HOME AND BUSINESS/MULTIMEDIA 
PUBLISHER/UTILITIES/)WINDOWS 
PLATINUM 4 CD PACK (ED/MM/PUB/GAMES) £20.00 
SHAREWARE HEAVEN 3 
SIMTEL '94 


2000 TRUE TYPE FNTS + CLIPART + BOOK CD £16.80 
CLIPART HEAVEN V2 

COLOUR CLIPART 2,500 PICS CD 

COREL PHOTO CD'S EACH 

PAGE PLUS V3 

PAGE PLUS PUBLISHER 

QUICKBOOKS 

QUICKEN V3 

QUICK INVOICE 


W/PERFECT MAIN ST TITLES SEE SPECIAL 
OFFERS 
WORDSTAR FOR WINDOWS V2 £31.00 


MANY OTHER TITLES AVAILABLE - PLEASE CALL 


SPECIAL OFFERS 
QEMM 7 GAMES PACK 
("93%PC FORMAT") 

...the best memory manager 
especially for CD Drives - solves all 
your memory problems. You need 
QEMM 7 right now" 

(93% PC FORMAT) 

PLUS PRIVATEER (92% PC HOME) 
PLUS SHADOWCASTER 
(90% PC GAMER) 

FREE UP TO 634K CONVENTIONAL 
MEMORY) 


ONLY £57.90 (RRP £1604) 


ANIMATION STATION 
POWERFUL, EASY TO USE DRAW- 
ING/ANIMATION PROGRAM FOR 
PROFESSIONAL/NON-PROFES- 


SIONAL USERS ONLY £51.20 


MULTIMEDIA MAGIC CD 
CREATE YOUR OWN ANIMATED 
MOVIES WITH THIS 6 PACK 
SPECIAL INCLUDES ANIMATION- 


PHOTOS, SOUND CLIPS. 
RECORD YOUR OWN SOUND, 
NARRATION, MUSIC ETC., 


ONLY £24.00 (RAP £300+) 


TORNADO + DESERT STORM 
BRILLIANT FLIGHT SIM WITH THE 
RAF'S MOST EXCITING BOMBER 
AND DESERT STORM MISSION. 
UNBELIEVABLE VALUE 


ONLY £13.50 (RAP £38.29) 


WORDPERFECT MAIN ST 


BONANZA 
ONLY WHOLE STOCKS LAST!!! 
WORKS £42.00, INFOCENTRAL 
£42.00, EXPRESSFAX £32.00, CLI- 
PART PREMIUM £32.00, CLIPART 
HOME/OFFICE £17.00, WALLABBEE 
JACK TITLES £17.00, KAP'N 
KARAOKE £17.00, MICKEY'S MEM 
CHALLENGE/JIGSAW £17.00 
GOLDMASTER DISKS PRE- 
FORMATTED DSHD (1.44MB) BOX 
OF 50 ONLY £22.00 


Sat 9.00- 1.00 


P&P £2.50 per order UK, £4.00 Europe (EC), £5.50 elsewhere. All prices exclude VAT at 17.5%. Prices correct at time of going to 


Programming 


ee ee With the lights out, Mike James develops an illuminating 


@ How it works: Playing for the draw 


© Programmer’s Challenge: Brainteaser Program that’s designed to think for itself 


Dark forces 


How important is the computer? 
At the end of the 20th century 
mankind has evolved to the point 
where every office and many 
homes have one. So what are 
they all doing and are they actu- 
ally improving things? This 
thought was provoked by a 
longish power cut I was subjected to last week. 
No, I’m not going to complain about the electric- 
ity company — there was a fault and it was fixed as 
quickly as possible—but the lights did go out sud- 
denly and plunge us into darkness. 

Of course, no one had the foresight to carry 
a torch with them, but I happened to be making 
some notes on a portable computer. I picked up 
my machine, turned it round so that the screen 
was facing out and proceeded to find my way toa 
brighter torch aided by its eerie blue glow! Once 
we were safely sitting around adozen candles the 
jokes about the most expensive torch in the 
Western world flowed thick and fast, but to be 
honest I really did start to think that it was the 
most useful thing that the portable had done in 
the whole of its lifetime. 

The prolonged silence in the house also 
made me think hard about how I would feel if 
computers just vanished from the face of the 
earth. As you can probably guess, my portable 
was about to die from lack of battery and only had 
enough left to light my way to find a torch, so no 
chance of pretending that everything was normal 
by continuing with the computing. 

You might think, at this point, that 1am about 
to start mourning the loss of so many spread- 
sheets, databases, word processors and so on. 
Far from it; it is a matter of some debate if the 
computer has ever reduced a company’s work- 
load or made it more efficient. 


Practice makes perfect 

The old argument of the task expanding to fill the 
time allocated to it seems to apply fairly well. 
Where you might have been happy with a Tippex 


correction to a letter, now it can be repeatedly 
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Pee see os 


refined until all errors are completely banished 
and a perfect print is sent out. Now there is no 
longer any need to rely on approximate, but usu- 
ally reliable, indicators of a company’s perfor- 
mance or the viability of a project — the figures 
can be exact and we can spend as much time as 
needed making them so. Not having the com- 
puter would simply send a lot of people back to 
earlier ways of doing things and make them more 
content with less. 

Of course, the real loss would be the pro- 
grammer’s art, and compared to this the minor 
irritations of a computerless business world is 
quite irrelevant. Programming is a special skill, a 
way of thinking that before the computer came 
along was extremely rare. Who needed to think 
that accurately before there were computers to 
make it essential to do so? Who needed to think 
in terms of iteration or, even more exotically, in 
terms of recursion? Perhaps a few engineers 
needed the precision of thought needed to build 
large systems. Perhaps a few mathematicians 
played with recursion and appreciated the poten- 
tial of iteration. But today, thanks to the comput- 
er and the fairly trite demands of the business 
world, we have hundreds of thousands of people 
trained to think in a way thatis more precise, log- 
ical, analytical and creative than ever before. 

Perhaps you don’t see how strange and 
unlikely this situation is. Consider for a moment 
how strange it would be ifa sizeable chunk of the 
population suddenly decided that learning 
advanced abstract mathematics or science was a 
good idea and got on with it. Instead of the 
stereotypical reaction of, “Can’t do maths”, or 
“Science is beyond me”, a large proportion of the 
population would be maths or science-literate to 
avery high level. Now this would be surprising, 
and you might expect some sort of social revolu- 
tion as the inevitable outcome. Yet this is more or 
less what has happened, only the technical mode 
of thought that dominates the last part of the 20th 
century is programming. So why no significant 
change in the way that society is run? It’s obvi- 
ous, isn’t it - we're all too busy programming 
those damn machines... 


T 


he basic learning machine 


sisal that learn 


Continuing the theme of AI and 
Visual Basic from last month I 
thought it would bea good idea to 
take a look at the noughts and 
crosses problem from a different 
point of view. Perhaps one of the 
true indicators of intelligence is 
the ability to learn. Last month’s 
attempt at a program that plays noughts and 
crosses did the job, but somehow it wasn’t satis- 
fying as an example of AI because it didn’t learn 
how to do the job. Instead a search procedure 
was used to find a ‘good’ move. Although the 
search procedure was sophisticated — a minimax 
search which can be optimised using branch and 
bound techniques — it was just good old plain 
computer science. You might as well have been 
searching a database tree for a particular record 
as searching a move tree for a move. 

In fact, when you look carefully at the whole 
procedure the only part of it that might have 
some claim to AI status is the evaluation function 
which tries to quantify the idea of what consti- 
tutes a good move. The evaluation function is an 
example of a heuristic rule — ie one that works 
most of the time, but we are not really sure why. 
Contrast this with the idea of an algorithm which 
is a rule which always works — until, that is, the 


The advanced learning machine 


PROGRAMMING 


program hits the first bug. 

So ifthe minimax search procedures seem to 
have more to do with mainstream computer sci- 
ence, how can we tackle the noughts and cross- 
es problem in a more AI-ish way? Given the earli- 
er comments about learning being a key feature 
of intelligence, the obvious thing to do is to try to 
find a way of teaching a program to play noughts 
and crosses. 


Make it better 

In this case we have to look at what facilities are 
needed for learning to happen at all, rather than 
the subject matter of the learning. For a machine 
to learn it has to be capable of altering its 
response to a given situation so as to produce a 
better outcome. Of course it all depends on what 
you mean by ‘better’, but without this qualifying 
word you could accept a machine that responds 
randomly to its inputs as a learning machine. 

So what does this imply we need? Obviously 
the machine needs to recognise when the same 
situation occurs so that it can monitor the effect 
its response has. As it needs to evaluate the effec- 
tiveness of its response over a period of time it 
also clearly needs some sort of memory. So our 
basic design for a learning machine/program is 
that it needs a recognition unit and a memory. 
The recognition unit selects an item from mem- 
ory corresponding to the current input which 
specifies the appropriate response. For example, 
ifyou recognise the smell of a favourite food then 
the recalled appropriate response it to salivate! 
The input, ie the smell, acts as an address for the 
memory which retrieves the response. 

You may have noticed that this recognition 
unit plus memory is a model for behaviour, but it 
doesn’t provide any way of modifying the 
response to a given input. For learning to occur 
there has to be an evaluation of how well the 
response did. This is usually a matter of identify- 
ing an appropriate goal. For example, in the 
human case the effectiveness of the response is 
measured on the pleasure/pain continuum and 
the goal is to maximise the pleasure. (I know this 
is a gross over simplification, but you can elabo- 
rate this idea to your own satisfaction!) I also 
have to admit that in the case of a machine/pro- 
gram, evaluating the effectiveness of the 
response can be a major problem. Even more of 
a problem is how to modify the response to 
improve its effectiveness. 

Clearly what we are discussing here is a feed- 
back mechanism. The learning occurs becausea » 
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correction signal is fed back to the input to alter 
the response. So a learning machine consists ofa 
recognition unit, a memory and a feedback unit. 
The sophistication of the system probably 
depends more on the quality ofthe feedback than 
anything else. For example, you can imagine a 
simple system making small random changes 
and keeping those that do better. Sometimes the 
nature of the feedback is structural in the sense 
that it never changes and is built into the mecha- 
nism. For example, if you eat a favourite food that 
makes you sick (literal feedback!) then the feed- 
back mechanism acts swiftly and reliably to alter 
the response to an aversion rather than an attrac- 
tion. A more advanced system might be able to 
employ reasoning or modelling to ‘work out’ a 
better response. It is likely that more of the intel- 
ligence lies in the nature of the feedback mecha- 
nism than any other component of the system. 

So we now have a theoretical analysis of 
learning, but how do we apply it to a real situa- 
tion? In the case of noughts and crosses the 
recognition of the input is easy — it’s just the state 
of the board. You could complicate the issue by 
pointing out that there are symmetries in the 
board that mean that some states are actually the 
same as other states — for example an X in the top 
left-hand corner is the same state allowing for 
rotation as an X in any of the corners — but this is 
a question of memory size and generalisation. 
It’s a question of memory size because treating 
these four states as an example of a single state 
allows us to save memory, and it’s a question of 
generalisation because having learned the cor- 
rect response to an initial move to the top left- 
hand corner we have also learned the correct 
response to any of the other corner moves. 

As long as you can see what we are losing by 
ignoring symmetry, then it doesn’t really alter 
the example too much to treat every board state 
as being unique. This implies that we need a 
memory that can store all of the board states. 
Given that each square can be in any of three con- 
ditions — blank, X or O — and there are nine 
squares, the total number of states is 39 or 19,683. 

This sounds like an excessive number of 
states for a game which is as simple as noughts 
and crosses, but you can easily see that not all of 
these states correspond to legal games. Many 
will be impossible to reach because the game 
would have ended first, ie any with more than one 
row of three! I don’t know how many legal states 
there are, and I think it is probably a difficult 
question, but it doesn’t really matter for the 
implementation of the program. Why? Because 
in practice the program only has to remember 
the number of different states that it encounters 
in play — and this is likely to be in the hundreds 
rather than the thousands. 

The next question is about implementation - 
how to store the state of the board. Given each 
square can hold one of three symbols it seems 
reasonable to code this as 0,1,2. There are a 
range of possible ways of storing the nine digits 
needed ~—astring, anine-element array and so on, 
and they would all be reasonable choices. 
However, some aspects of the program are sim- 
plified if we take a low-level approach and code 
the board state as bit fields in an integer variable. 
Each square needs two bits to store the symbol 
that it holed ie 0=00, 1=01 and 2=10. This means 
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we need 18 bits to store the complete board 
which is unfortunately more than the 16 bits of 
storage that a standard integer provides. The 
solution is to use a long, 32-bit integer and waste 
alittle storage! 

It is easy to see how the state of each square 
can be coded: 


Select Case sym(i).Caption _| 
Case an al 
p=0.) 
Case "X" | 
p=1 
Case "0" < 
p=2.) 
End Select_| 


where sym(i).Caption is the symbol in square i 
(=0 to 8). The difficult question is how these can 
be packed into the bit fields of a 32-bit integer. All 
we have to do is add p to the integer and then shift 
it two bits to the right: 


s = ShiftRight(s, 2) + p.! 
Of course, we need a ShiftRight function, but as 


multiplying by two is the same as a shifting right 
by one place: 


Function ShiftRight (ByVal s As Long, n As Integer) As Long. 
Dim i As Integer! 
Fori = 1Ton.| 
s=s*2.) 
Next i 
ShiftRight = s_J 
End Function_| 


Notice that the ShiftRight function has to be a 
Long, and that s is passed by value to make sure 
that the function doesn’t change it. Also notice 
that this function is flawed in that any shift that 
causes bits to ‘fall off the end’ will fail due to an 
overflow error. [leave it to you to rectify this prob- 
lem because in this application no bits should 
ever fall off the end! 

Now we can code the state of the board, the 
next step is to create the memory. One idea 
would be to use the state — a long integer —as an 
index to a lookup table. That is: 


nextmov=memory(state) _| 


It is obvious that the next move can be coded as 
a number from 0 to 8 so an integer array would 
do, but ask yourself how large it would need to 
be. The answer in binary is 101010101010101010 
or 174,762 in decimal. As discussed earlier, this 


VB Graphix 


| have to admit that | am not sure 
what to make of VB Graphix. Put 


simply, this is an add-on to 
Visual Basic that increases the 
graphics capabilities at your dis- 
posal. If you already know 
Graphics Server from Bits per 
Second then you might imagine 
that VB Graphix is something 
similar —itisn’t. Itisn’ta custom 
control, but a graphics DLL 
which among other things 
implements a graphics lan- 
guage called Xscript. This is a bit 
like PostScript, but it can be 
generated interactively by draw- 
ing programs. After having only 
looked at it for a short time I can 
tell you that Xscript is easy to 
use — mainly because it doesn’t 
share the stack-oriented execu- 


The shape of things to come... the demo drawing program and a 
library of standard shapes 


tion of PostScript. Xscript is a 
perfectly normal block-struc- 
tured language, although it only 
has a simple enumeration loop, 
no conditionals and 25 user- 
defined variables. 

When you install VB 
Graphix don’t waste time look- 
ing for new icons in the Toolbox, 
as | have already said it isn’t a 
custom control. Instead what 
you get is a demonstration pro- 
gram that, when you run it, 
behaves like a very sophisticat- 
ed drawing program. You can 
draw Bezier curves, boxes, lines 
and so on and even complete 


charts. The charting portion of 
the package includes all the 
standards and a spreadsheet- 
like data structure to hold the 
values that you are going to plot. 
You can even apply some func- 
tions to the data — although the 
data grid doesn’t recalculate 
like a spreadsheet. 

The drawing program demo 
is nice, but what next? How do 
you actually make use of VB 
Graphix? The manual says that it 
is written for programmers, but 
it seems to be using this as an 
excuse for being terse and unin- 
formative. You could quite easi- 


ly read the manual and still not 
have a clue as to what to do with 
VB Graphix apart from play with 
the demos. The whole point is 
that VB Graphix provides a set of 
callable functions in DLL form. 
In other words, what you have is 
a subroutine library of graphics 
functions which you can use to 
build your own applications. 
More to the point, the draw- 
ing program really is a demo in 
the sense that it is written using 
the functions in the DLLs. In 
other words anything it does, 
your programs can do by making 
the right routine calls. The man- 


is a little on the large side so a better 
solution is to store the state as well as 
theresponse and search the array fort. 
For neatness it also seems like a good 
idea to use a user-defined type: 


Type mem_| 
State As Long.| 
mov As Integer. 

End Type! 


and then declare an array of these 
records to act as the memory locations: 


Dim memory(200) As mem_| 


To record a state s and the move m to 
make in response, all that is needed is: 


memory(i).state=s _| 
memory(i).mov=m_! 


When a particular states turns up during a game, 
all we have to do is scan though the memory to 
see if the state has been encountered before. Ifit 
has, then play the move stored in the memory. If 
it hasn’t, play a move at random and store this in 
memory to be used next time. 


Forml 


The crowd’s roar quietens to an expectant hush as 
the game is about to begin... 


Work to do 

This gives us most of the outline of the program 
so we might as well start work on it. As last 
month, the basic form used to play the game is 
built up using a control array of labels - Sym(0) 
to Sym(8). (If you don’t know about control 


Chart Editor [DED LCSVY) 


File Edit Chart Row Column Help Euncticns Calculations 
“7 Cokum 


The easy-to-use Xscript code 
ready for editing (right) 


ual defines the API (ie the list of 
DLL calls that you can make) 
and there is a text file that you 
can include to define all of the 
external functions and subrou- 
tines. Some of the API calls just 
plot a Bezier curve or draw a 
box, but some produce dialog 
boxes, call the Xscript editor 
and so on. 

To understand the possibil- 
ities of VB Graphix you really do 
only have to explore the demo 
program and realise that you 
can import chunks of its func- 
tionality into your own pro- 
grams. In most cases | would be 
pleased to do just this, but in 


14 Chart 1.“d:\vbgraphx\resource\DEBT.CSV" 
| ResetState 


one or two areas the facilities 
are a bit too ‘Borlandy’. The 
whole program was developed 
using the Borland OWL library 
and this of course means flashy 
graphics buttons, but for my 
tastes many of the dialog boxes 
take this a bit too far and look 
cluttered and over bright. 

At the end of the day | feel 
that the whole approach of VB 
Graphix isn’t really the right one 
for Visual Basic. Given that it is 
actually just a traditional graph- 


The chart data editor (left) 

includes a spreadsheet-like 
structure to hold the values 
you’re going to plot 


ics library packed as a DLL, the 
only new element is its use of a 
device/platform independent 
graphics language, in other 
words, Xscript. Packing the 
same facilities as custom con- 
trols would make them easier to 
use and wouldn’t involve so 
much actual coding. Still, if you 
want to do graphics by writing 
subroutine calls then VB 
Graphix might be for you, but in 
my opinion its list price is high 
and it needs a better manual. 


PROGRAMMING 


arrays then see last month’s issue or the Visual 
Basic help.) These are set to a large font size, 
positioned to form the usual noughts and cross- 
es pattern and the caption property is initialised 
to "—ie the null string. The board is then drawn 
using two horizontal and vertical lines. As the 
game is played the label captions are set to X or 
O to indicate a move. In this month’s version of 
the game there are also three buttons: 
Command1, save memory; Command2, load 
memory; and Command3, play again. 

The first thing we need is the Type definition 
for the memory. This has to be placed in its own 
module so that it is global to the entire program. 
So use File, New Module and enter into its decla- 
rations section: 


Type mem.| 
state As Long_| 
mov As Integer) 

End Type! 


Save this module as Type or some other mean- 
ingful name. Next, switch back to the original 
form module and enter: 


Dim memory(200) As mem_| 
Dim NumRules As Integer | 
Dim rule As Integer | 

Dim GAME As Integer | 


into the declarations section. The 200 element 
array is the memory, NumRules keeps a track of 
how many states are stored in the memory, rule 
stores the index of the last rule to be used and 
GAME indicates the state of the game (0= not in 
play, 1= in play). Form_Load is used to initialise 
these variables. 


Sub Form_Load () J 
NumRules = 0.) 
GAME = 1.) 

End Sub.J 


Once the form has loaded, you can begin to play 
by clicking on any of the blank squares. When 
this happens Sym_Click places an Xin that square 
and uses getstate and getmove to finda response. 


Sub Sym_Click (index As Integer) _| 
Dim state As Long. 

Dim mov As Integer! 

If sym(index).Caption <>" Then Exit Sub_! 
If GAME = 0 Then Exit Sub_| 
sym(index).Caption = "X" | 
form1.Refresh _| 

If win() <> 0 Then! 

Call endgame(win(), index) J 

Exit Sub J 

End If! 

state = getstate()_| 

mov = getmove(state) _| 
sym(mov).Caption = "0" | 

If win) <> 0Then_! 

Call endgame(win(), index) _| 

Exit Sub! 

End If. 

End Sub_! 


The function win() is used to see if anybody has 


actually won or if there is a stalemate after each » 
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move. If the game is over then 
endgame is called. 

Clearly a lot of the work 
goes on in getstate and get- 
move, but they are not particu- 
larly complicated. Getstate is: 


Function getstate () As Longa 
Dim i As Integer_| 
Dim p As Integer | 
Dim s As Long.! 
s=0. 
Fori = 0To8_! 
Select Case sym(i).Caption | 
Case it) J 
p=0.1 
Case "X" | 
p=1) 
Case "0" | 
p=21 
End Select! 
$ = ShiftRight(s, 2) + pl 
Next iJ 
getstate = s_| 
End Function! 


and this works much as described earlier. Notice 
that it uses the ShiftRight function so don’t forget 
to type this in as well, it’s listed in the discussion 
of how to code for the state. Getmov is: 


Function getmove (state As Long) As Integer! 

Dim i As Integer_| 

For i = 0 To NumRules_| 

If state = memory(i).state Then _| 
getmove = memory(i).mov_| 

rule = i_| 

Exit Function _| 

End If! 

Next i! 

Fori = 0To 8! 

If sym(i).Caption = "" Then. 
memory(NumRules).state = state _| 
memory(NumRules).mov = i! 

rule = NumRules_| 

NumRules = NumRules + 1.) 
getmove = i_! 

Exit Function | 

End If! 

Next i_| 

End Function! 


The first For loop looks through the memory to 
see if the state has been encountered before. Ifit 
has, then the stored move is returned as the one 
to play. The second For loop searches the board 
to find the first blank location where a zero could 
find a home. In other words, the move that is 
selected is the first one that is available in a left- 
to-right/top-to-bottom search of the board. The 
move and the state are then stored in the memo- 
ry and NumRules is incremented. Notice that in 
both cases the index of the rule stored in memo- 
ry is saved in Rule before the function exits. 

All that remains is to give details of the win 
function. This is a tedious bit of code, because all 
it has to do is check for a line of three Xs or 
three Os, but I can’t find a neat and elegant way 
of doing it (see Programmer’s Challenge). My 
method is a simple brute force test on every pos- 
sible line of three: 
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One game that it never learns to block! 


Function win () As Integer! 
Dim t As Integer! 
t = LineOfThree(0, 1, 2). 
t=t+ LineOffhree(3, 4, 5) | 
t =t + LineOffhree(6, 7, 8) _| 
t=t+ LineOffhree(0, 3, 6)! 
t= t+ LineOffhree(1, 4, 7) | 
t=t+ LineOffhree(2, 5, 8)! 
t= t+ LineOffhree(0, 4, 8) .| 
win = t + LineOfThree(2, 4, 6) _| 
lft = 0 Then! 
Fori = 0To 8.1 
If sym(i).Caption = " Then_J 
Exit Function | 
End If. 
Next i! 
win = -1.] 
End If_J 
End Function! 


At the end of the function calls to LineOfThree 
contains 0, 1 or 2. If it is 1 then O has a line of 
three, and if it is 2X has a line of three. The only 
problem is that even if it is 0 the game could be 
over as astalemate. This is what the Forloop tests 
for and sets win to -1 if no null position remains. 
The function LineOfThree is equally tedious: 


Function LineOffhree (a As Integer, b As Integer, c As 
Integer) As Integer! 
LineOffhree = 0.| 
If sym(a).Caption = "O" And sym(b).Caption = "0" | 
And sym(c).Caption = "0" Then LineOffhree = 1.1 
If sym(a).Caption = "X" And sym(b).Caption = "X" | 
And sym(c).Caption = "X" Then LineOffhree = 2.1 
End Function! 


And sorry about the long lines—there are just two 
If statements in this function and each oneis ona 
single line. 


Not only, but also 

OK, so now we can play noughts and crosses 
using the memory method. But wait! We have 
forgotten about the feedback. Surprisingly; the 
feedback part of the method doesn’t impinge on 
the program until the game is over. This means 
thatitis entirely contained with the endgame sub- 


( 


routine which hasn’t been described yet. 
Obviously if O wins then there is no need to 
change the contents of the memory. If O draws, 
OK we'll live with this as a good outcome for rea- 
sons that are obvious if you think about the 
nature of the game for a minute! If O loses then 
something has to be done. In noughts and cross- 
es it is easy to identify the move that lost you the 
game — it’s the move you made just before you 
lost. This is the reason for choosing noughts and 
crosses for this demonstration and the reason 
why the variable Rule always stores the index of 
the last move made. 

In other words, when you are in endgame the 
move that lost the game is in memory(Rule).mov. 
How should we change this move to make it bet- 
ter? In an earlier attempt at writing this program 
(in MS Basic over 10 years ago!) I used the 
method of selecting the next free move. Clearly 
in this case the move might or might not be bet- 
ter, and only playing the game again will decide. 
Eventually all possible moves will be tried and 
either a good move found or the position has to 
be treated as unwinnable. If you think for a 
moment you will immediately see what I didn’t 
the first time round. The move to make is the one 
that X made just before the win. If O makes this 
wining move it deprives X of the win and so must 
be a better move than the current one. There is 
no need to search or try random moves. Just play 
X’s move! With this observation, which I admit is 
adding some extra intelligence to the method, 
the endgame routine is: 


Sub endgame (ByVal w As Integer, mx As Integer) | 
Dim i As Integer! 

If w = 1 Then MsgBox "win for 0", 0.1 

Ifw = 2 Then_| 

MsgBox "win for X", 0.1 

memory(rule).mov = mx_! 

End If.) 

Ifw = -1 Then MsgBox "stalemate", 0.) 

GAME = 0.1 

End Sub! 


The parameter mx is used to pass X’s last move 
and this is simply stored in the memory in place 
of the losing move. To see if this change is effec- 
tive we need to be able to play the game again so 
the play again Click routine is: 


Sub Command3 Click () | 

Dim i As Integer. 

Fori = 0To 8) 
sym(i).Caption = "".J 

Next i! 

GAME = 1.) 

End Sub_| 


It would also seem a good idea to be able to store 
and load the memory to and from disk. The Load 
memory button click routine is: 


Sub Command2_Click () 

Dim i As Integer! 

Open "MEMORY" For Input As 1.1 

Input #1, NumRules_! 

For i = 0To 200-1 

Input #1, memory(i).state, memory(i).mov_! 
Next i_| 

Close 1.) 


